Apple Reference & Presen…tion Library 2 (Reseller)/Apple R&P Lib Reseller v2.0.iso/4-Fonts & Software/Demo Software/AppMaker/Demo AppMaker™/Demo AppMaker™.rsrc/TmpP_207_FontMenu.txt

Text File | 1989-04-09 | 967b | 2 lines

# (decoded with TMPL 11972)
{ %filename% }{ Created %date% %time% by AppMaker }Unit %UnitName%;InterfaceUses%If MPW%    {$Load ToolBox.dump}        MemTypes,        QuickDraw,        OSIntf,        ToolIntf,        PackIntf,    {$Load}%end if%%If Think%{$ifc undefined Think_Pascal}    ListManager,{$endc}%end if%    %UsesDialogs%    Globals,    Miscellany,    ResourceDefs;{----------}Procedure Init%MenuName%;Procedure Choose%MenuName% (itemNr:    integer);{----------}Implementation%If MPW%{$D+}{$R+}{$OV+}%end if%var    nrFonts:        integer;%If MPW%{$S %unitname%}%end if%{----------}Procedure Init%MenuName%;Begin    nrFonts := countMItems (FontMenu);End; {Init%MenuName%}%DoMenuItems%{----------}Procedure Choose%MenuName% {(itemNr:    integer)};var    fontName:        Str255;    fontNum:        integer;Begin    DoRadioMenu (%menuName%Menu, 1, nrFonts, itemNr);    GetItem (%menuName%Menu, itemNr, fontName);    GetFNum (%menuName%Name, fontNum);End; {Choose%MenuName%}End. {%UnitName%}